Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Organization/Cookbook 1.2/Cookbook/Cookbook/card_12994.txt

Text File | 1991-03-08 | 3.9 KB | 147 lines

-- card: 12994 from stack: in
-- bmap block id: 4751
-- flags: 4000
-- background id: 2785
-- name: ContentsCard
----- HyperTalk script -----
on OpenCard
  global TOCGEN
  if TOCGEN is not "Yes" and short name of me is "ContentsCard" then TestAndGenerate
  pass OpenCard
end OpenCard

on TestAndGenerate
  global TOCOUNT
  unlock screen
  get card field TocCountFld
  put it into TOCOUNT
  if TOCOUNT+2 is not number of cards in this background then
    answer "Generate a new table of contents" with "Yes" or "Later"
    if it is "Yes" then GenerateTOC
  end if
end TestAndGenerate

on GenerateTOC
  global TOC, TOCOUNT, TOCGEN

  set cursor to watch
  lock screen
  put "Yes" into TOCGEN
  put "" into TOC
  put 0 into TOCOUNT
  --put id of last card into LASTONE

  repeat
    go to next card
    set cursor to toc1
    if fld "Type" is not empty then
      add 1 to TOCOUNT
      put TOCOUNT && word 1 of fld "Type" && "•" && line 1 of fld "Title" after TOC
      set cursor to toc2
      if last char of TOC is not return then
        put return after TOC
      end if
    end if
    if the short name of this card is "ContentsCard" then exit repeat
    --if id of this card is LASTONE then exit repeat
  end repeat

  put TOC into fld "Recipe" of card "ContentsCard"
  put TOCOUNT into card field TocCountFld of card "ContentsCard"
  go to card "ContentsCard"
  doMenu "Compact Stack"
  put "No" into TOCGEN
end GenerateTOC



-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=306 top=306 right=322 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: TocCountFld
----- HyperTalk script -----
on mouseUp
  answer "Regenerate Table of contents?" with "Yes" or "No"
  if it is "Yes" then
    put 0 into me
    GenerateTOC
  end if
end mouseUp



-- part contents for background part 14
----- text -----
Table of Contents


-- part contents for background part 13
----- text -----
1 BEEF • Beef with Tangerine Peel
2 BEEF • Turkish Meatballs
3 CHICKEN • Chicken or Turkey Tetrazzini
4 CHICKEN • Chicken Tetrazini
5 CHICKEN • Chinese Lemon Chicken
6 CHICKEN • Crock pot Chicken a l'Orange
7 CHICKEN • General Tso's Chicken
8 CHICKEN • General Tso's Chicken 2
9 CHICKEN • Southern Fried Chicken
10 CHICKEN • Thai Chicken Coconut Soup
11 CHICKEN • Thai Ginger Chicken Soup
12 FISH • Bagna Cauda
13 FISH • Flounder in Tomato and Basil Sauce
14 FISH • Tom's Easy Fish Chowder
15 FISH • World's Best Fish and Chips
16 INTRO • The USENET Cookbook (intro)
17 MEAT • Beef stroganoff
18 MEAT • Tex-mex style enchiladas
19 MEAT • Baked Lasagna
20 MEAT • Caesar Salad
21 MEAT • Cornbread Stuffing
22 MEAT • Lasagna for 30
23 MEAT • Pozole Verde from Chilapa
24 MEAT • Spicy Peanut, Sate (Satay) sauces
25 OVO • Cranberry Fruit Nut Bread
26 OVO • Potato Gnocci
27 OVO-LACTO • Apple Strudel
28 OVO-LACTO • Butter Spritz Cookies
29 OVO-LACTO • Challah
30 OVO-LACTO • Cheesecake (desert)
31 OVO-LACTO • Decadent French Toast
32 OVO-LACTO • Grandmother Watson's Oatmeal Cookies
33 OVO-LACTO • Hocott's Pennsylvanie Dutch Funnel Cakes
34 OVO-LACTO • Pecan Delight Pie
35 OVO-LACTO • Pennsylvania Dutch Funnel Cakes
36 OVO-LACTO • Simple and elegant Chocolate Mousse
37 OVO-LACTO • Tira mi su (desert)
38 OVO-LACTO • Truffles (candy)
39 PORK • Ham and Rice Stuffing
40 TUNA • Tuna Tetrazzini
41 VEGAN • Loubia bil luz
42 VEGAN • Benner's Pepper Slaw
43 VEGAN • Crusty French Bread
44 VEGAN • Japanese Soy Sauce Dressing
45 VEGAN • Pasta with Oil & Garlic
46 VEGAN • Salsa De  Llaja


-- part contents for background part 20
----- text -----
This card shows the current table of contents.

Click on an entry to go to that recipe card.

You're asked whether Hypercard should update it whenever you add or delete a card and return here.


-- part contents for card part 3
----- text -----
46